home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zl.d64 / lst.dem'italics < prev    next >
Text File  |  2007-03-01  |  517b  |  24 lines
  1. 0010 // ╠╔╙╘ "@0:LST.PROC ITALICS"
  2. 0020 //
  3. 0030 ╨╥╧├ ITALICS(X,Y,STRING$) 
  4. 0040   PLOTTEXT(X,Y,STRING$)
  5. 0050   Z:=╠┼╬(STRING$)
  6. 0060   VIEWPORT(X,X+(╠┼╬(STRING$))*8+1,Y,Y+2)
  7. 0070   PLOTTEXT(X-1,Y,STRING$)
  8. 0080   VIEWPORT(X-2,X+(╠┼╬(STRING$))*8+1,Y+5,Y+8)
  9. 0090   PLOTTEXT(X+1,Y,STRING$)
  10. 0100   VIEWPORT(0,319,0,199)
  11. 0110 ┼╬─╨╥╧├ ITALICS
  12. 0120 //
  13. 0130 //
  14. 0140 //
  15. 0150 //         DEMO
  16. 0160 //
  17. 0170 //
  18. 0180 //
  19. 0190 //
  20. 0200 ╒╙┼ GRAPHICS
  21. 0210 GRAPHICSCREEN(0)
  22. 0220 ITALICS(100,100,"╚ELLO THERE !")
  23. 0230 ╫╚╔╠┼ ╦┼┘$="" ─╧ ╬╒╠╠
  24.